1 REM  BY  KEVIN J STONE
2 REM      3401 AGRICOLA ST.
3 REM      HALIFAX, N.S. B3K 4J2
4 REM
10 POKE 53281,1
20 PRINT "[147]  LOADING MACHINE LANGUAGE ... PLS WAIT"
30 GOSUB 880
40 OPEN 15,8,15
50 PRINT "[147]      KEYBOARD EDITOR VERSION 1.0 "
60 PRINT : PRINT"[144]"
70 PRINT TAB(3)"[213][192][192][192][192][192][192][192][160]MENU SELECTIONS [192][192][192][192][192][192][201]
80 [153] [163]3)"(null)                              (null)
90 PRINT TAB(3)"[221]    F1[146] - RECONFIGURE KYBD     [221]
100 [153] [163]3)"(null)    F3WAIT - TEST KYBD            (null)
110 PRINT TAB(3)"[221]    F5[146] - SAVE KYBD            [221]
120 [153] [163]3)"(null)    F6WAIT - LOAD KYBD            (null)
130 PRINT TAB(3)"[221]    F7[146] - QUIT                 [221]
140 [153] [163]3)"(null)                              (null)
150 PRINT TAB(3)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
160 [153]:[153][163]5)"WHICH SELECTION ? ";
170 [141] 830
180 [139] I$[178]"INPUT" [167] 250
190 [139] I$[178]"DIM" [167] 460
200 [139] I$[178]"READ" [167] 520
210 [139] I$[178]"IF" [167] 650
220 [139] I$[178]"LET" [167] [153] "LOADEXIT TO BASIC ...": [160]8:[160]15:[128]
230 [137] 170
240 [128]
250 [143] REDEFINE NEW KEYBOARD
260 [153] "LOADPRESS 'F7' TO RETURN TO MAIN MENU"
270 [153] : [153]
280 [153] "PRESS KEY TO CHANGE  - ";
290 [141] 830
300 [139] I$[178]"LET" [167] 50
310 OK$[178]I$ : [143] OLD KEY SET
320 [153] OK$
330 [153]
340 [153] "PRESS NEW KEY WANTED - ";:[141] 830
350 [139] I$[178]"LET" [167] 50
360 NK$[178]I$ : [143] OLD KEY SET
370 [153] NK$;
380 NK[178][198](NK$) : OK[178][198](OK$)
390 [153] "LOADPERFORMING CHANGE - ONE MINUTE PLEASE"
400 I[178]60289
410 [139] [194](I)[179][177]OK [167] 430
420 [151]I[171]11018,NK:[137] 250
430 I[178]I[170]1
440 [139] I[177]60483 [167] [153] "ILLEGAL KEY - TRY AGAIN":[141] 830:[137]250
450 [137] 410
460 [143] TRY NEW KEYBOARD
470 [153] "LOADPRESS 'F7' TO RETURN TO MENU"
480 [139] [194](1)[179][177]53 [167] [151] 253,0 : [158] 49152 : [143]  GET NEW KEYBOARD
490 [141] 830
500 [139] I$[178]"LET" [176] [194](1)[178]53 [167] [158] 49152 : [137] 50
510 [153] I$;: [137] 490
520 [153] "LOADTO EXIT WITHOUT SAVING - PRESS 'RETURN'"
530 [133] "NAME THE KEYBOARD - ";N$
540 [139] N$[178]"" [167] 50
550 [139] [195](N$)[177]16 [167] [153] "NAME TO LONG .. TRY AGAIN" : [137] 520
560 [159] 8,8,8,N$[170]",P,W"
570 [152]8,[199](0);:[143] LO LOAD ADR
580 [152]8,[199](192);:[143] HIGH LOAD ADR
590 [129] X[178]49152 [164] 49467
600 [152]8,[199]([194](X));
610 [130]
620 [160] 8
630 [141] 780
640 [137]50
650 [153] "LOADTO EXIT WITHOUT LOADING - PRESS 'RETURN'"
660 [133] "NAME OF KEYBOARD - ";N$
670 [139] N$[178]"" [167] 50
680 [139] [195](N$)[177]16 [167] [153] "NAME TO LONG .. TRY AGAIN" : [137] 650
690 [159] 8,8,8,N$[170]",P,R"
700 [141] 780
710 [161]#8,I$ : [161]#8,I$ :[143] TOSS LOAD ADDRESS
720 I[178]49152
730 [161]#8,I$:[139] I$[178]"" [167] I$[178][199](0)
740 [151] I,[198](I$)
750 [139] ST[179][177]0 [167] [160]8:[137]50
760 I[178]I[170]1
770 [137] 730
780 [132]15,E1,E2$,E3,E4
790 [139] E1[178]0 [167] [142]
800 [153] "ERROR - ";E1;E2$
810 [153] "PRESS A KEY - ";:[141] 830
820 [142]
830 [161] I$ : [139] I$[179][177]"" [167] 870
840 [153] "SINCMDSTOP";:[129] D[178]1 [164] 100 :[130]
850 [153] "SINWAITCMDSTOP";:[129] D[178]1 [164] 100 :[130]
860 [137] 830
870 [142]
880 I[178]49152
890 [135] A:[139] A[178]256 [167] [142]
900 [151] I,A:I[178]I[170]1:[137] 890
910 [131] 165,253,201,1,208,3,76,83
920 [131] 192,169,224,133,252,169,0,133
930 [131] 251,160,0,177,251,145,251,200
940 [131] 208,249,230,252,165,252,201,0
950 [131] 208,239,169,160,133,252,169,0
960 [131] 133,251,160,0,177,251,145,251
970 [131] 200,208,249,230,252,165,252,201
980 [131] 192,208,239,169,0,133,254,169
990 [131] 1,133,253,162,0,189,119,192
1000 [131] 201,0,240,7,157,129,235,232
1010 [131] 76,69,192,165,254,201,0,240
1020 [131] 8,169,0,133,254,32,105,192
1030 [131] 96,169,1,133,254,32,112,192
1040 [131] 96,165,1,9,2,133,1,96
1050 [131] 165,1,41,253,133,1,96,20
1060 [131] 13,29,136,133,134,135,17,51
1070 [131] 87,65,52,90,83,69,1,53
1080 [131] 82,68,54,67,70,84,88,55
1090 [131] 89,71,56,66,72,85,86,57
1100 [131] 73,74,48,77,75,79,78,43
1110 [131] 80,76,45,46,58,64,44,92
1120 [131] 42,59,19,1,61,94,47,49
1130 [131] 95,4,50,32,2,81,3,255
1140 [131] 148,141,157,140,137,138,139,145
1150 [131] 35,215,193,36,218,211,197,1
1160 [131] 37,210,196,38,195,198,212,216
1170 [131] 39,217,199,40,194,200,213,214
1180 [131] 41,201,202,48,205,203,207,206
1190 [131] 219,208,204,221,62,91,186,60
1200 [131] 169,192,93,147,1,61,222,63
1210 [131] 33,95,4,34,160,2,209,131
1220 [131] 255,148,141,157,140,137,138,139
1230 [131] 145,150,179,176,151,173,174,177
1240 [131] 1,152,178,172,153,188,187,163
1250 [131] 189,154,183,165,155,191,180,184
1260 [131] 190,41,162,181,48,167,161,185
1270 [131] 170,166,175,182,220,62,91,164
1280 [131] 60,168,223,93,147,1,61,222
1290 [131] 63,129,95,4,149,160,2,171
1300 [131] 131,255,0,256